sync on : sync rate 60 : hide mouse:cls 0
autocam off
set global collision on
ObjectNumber=1
SecondObject=2
make object sphere ObjectNumber,10
color object ObjectNumber,rgb(0,255,0)
position object ObjectNumber, 0,0,0
make object cone secondObject,10
xrotate object secondObject,90
fix object pivot secondObject
color object SecondObject,rgb(255,0,0)
position object SecondObject, 15,0,0
make object collision box ObjectNumber, -5,-5,-5,5,5,5,0
make object collision box SecondObject, -5,-5,-5,5,5,5,0
while mouseclick()=0
set cursor 0,0
if leftkey()=1 then turn object left SecondObject,1
if rightkey()=1 then turn object right SecondObject,1
if upkey()=1 and OBJECT HIT(SecondObject,0)=0 then move object SecondObject,1
if downkey()=1 and OBJECT HIT(SecondObject,0)=0 then move object SecondObject,-1
if spacekey()=1 then move camera 0,1
if returnkey()=1 then position object SecondObject,15,0,0
if OBJECT COLLISION(SecondObject,0)
print "OBJECT COLLISION"
print "GET OBJECT COLLISION X",GET OBJECT COLLISION X()
print "GET OBJECT COLLISION Y",GET OBJECT COLLISION y()
print "GET OBJECT COLLISION Z",GET OBJECT COLLISION z()
print "OBJECT COLLISION CENTER X",OBJECT COLLISION CENTER X(ObjectNumber)
print "OBJECT COLLISION CENTER Y",OBJECT COLLISION CENTER Y(ObjectNumber)
print "OBJECT COLLISION CENTER Z",OBJECT COLLISION CENTER Z(ObjectNumber)
print "OBJECT COLLISION RADIUS",OBJECT COLLISION RADIUS(ObjectNumber)endif
sync
endwhile
delete object collision box ObjectNumber
delete object collision box SecondObject
set global collision off
delete object ObjectNumber
delete object SecondObject
end
